\(Уточним\ зависимости\ для\ сил\ и\ м - тов\)

\(\(\(
\)\(mXX[beta[t], delE[t]]

    mMy = mYY[wx[t], delN[t]]


    mMZ = mZZ[wZ[t], delV[t]]\)\)\)

\(\(\(
\)\(\(v[vx_, vy_, vz_] := 
        Sqrt[vx^2 + vy^2 + vz^2]\)

      v[vx, vy, vz]
\(kor = 
        Sqrt[vx[t]^2 + vy[t]^2 + vz[t]^2]\)\)\)\)

\(\(\(
\)\(
\)\(\(alfa = 
        ArcTan[vy/vx]\)

\(beta = ArcTan[vz/vy]\)

      ArcTan[vz\/vy]\)\)\)

\(\(\(
\)\(
\)\(\(cX = 
        cxx[beta[t]]\)
\(cY = cyy[alfa[t], mah[t]]\)
\(cZ = 
        czz[beta[t], h[t]]\)\)\)\)

\(\(\(
\)\(
\)\(\(mx = 
        mmx[beta, deltaE]*cX*ro[H]*
          s*\((v[t])\)^2/2\)

\(my = 
        mmy[omX, deltaN]*cY*ro[H]*s*v[t]^2/2\)

\(mz = 
        mmz[omZ, deltaV]*cZ*ro[H]*s*v[t]^2/2\)\)\)\)

\(\(\(
\)\(\(fx = cX*ro[H]*s*v[t]^2/2\)
\(fy = 
        cY*ro[H]*s*v[t]^2/2\)
\(fz = cZ*ro[H]*s*v[t]^2/2\)\)\)\)

mvv = {mx, my, mz}

MatrixForm[
      y = {{yxx, 0, 0}, {0, y0, 0}, {0, 0, y0}}]

TableForm[
      k = y  . om]

TableForm[pk = D[k, t]]

TableForm[
      qqqq = Cross[k, om]]

TableForm[
      left = pk + qqqq]

MatrixForm[left] == MatrixForm[mv]
   
  
(({{yxx omX'[t]}, {y0 omX[t] omZ[t]-yxx omX[t] omZ[t]+y0 omY'[t]}, {-y0 omX[t] omY[t]+yxx omX[t] omY[t]+y0 omZ'[t]}}))==(({{mx}, {my}, {mz}}))